home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / other / dopus412-gpl / program / getusage.asm < prev    next >
Assembly Source File  |  2000-02-28  |  3KB  |  150 lines
  1. ; Directory Opus 4
  2. ; Original GPL release version 4.12
  3. ; Copyright 1993-2000 Jonathan Potter
  4. ; 
  5. ; This program is free software; you can redistribute it and/or
  6. ; modify it under the terms of the GNU General Public License
  7. ; as published by the Free Software Foundation; either version 2
  8. ; of the License, or (at your option) any later version.
  9. ; 
  10. ; This program is distributed in the hope that it will be useful,
  11. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. ; GNU General Public License for more details.
  14. ; 
  15. ; You should have received a copy of the GNU General Public License
  16. ; along with this program; if not, write to the Free Software
  17. ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18. ; 
  19. ; All users of Directory Opus 4 (including versions distributed
  20. ; under the GPL) are entitled to upgrade to the latest version of
  21. ; Directory Opus version 5 at a reduced price. Please see
  22. ; http://www.gpsoft.com.au for more information.
  23. ; 
  24. ; The release of Directory Opus 4 under the GPL in NO WAY affects
  25. ; the existing commercial status of Directory Opus 5.
  26.  
  27. * Get CPU usage as a percentage
  28. * getusage() routine takes no arguments, returns value from 0 to 100 in d0
  29. * basically pinched from an old version of xoper, thanks Werner :)
  30.  
  31.     XDEF _getusage
  32.  
  33.     section code
  34.  
  35. _getusage:
  36.     movem.l d1-d3/a6,-(sp)
  37.     move.l 4,a6
  38.     move.l 280(a6),d0
  39.     move.l 284(a6),d1
  40.     move.l oldidl,d3
  41.     move.l d0,oldidl
  42.     sub.l d3,d0
  43.     move.l olddisp,d3
  44.     move.l d1,olddisp
  45.     sub.l d1,d3
  46.     move.l d0,d1
  47.     sub.l d3,d1
  48.     sub.l d3,d0
  49.     neg.l d3
  50.     bsr getpcent
  51.     movem.l (sp)+,d1-d3/a6
  52.     rts
  53.  
  54. getpcent:
  55.     lsl.l #1,d3
  56.     move.l d3,d1
  57.     lsl.l #2,d3
  58.     add.l d1,d3
  59.     lsl.l #2,d3
  60.     move.l d3,d1
  61.     lsl.l #3,d3
  62.     move.l d3,d2
  63.     lsl.l #1,d3
  64.     add.l d2,d3
  65.     add.l d1,d3
  66.     move.l d0,d1
  67.     move.l d3,d0
  68.     bsr div32
  69.     rts
  70.  
  71. * 32-bit division routines
  72.  
  73. div32:
  74.     tst.l d1
  75.     beq div8
  76.     swap d1
  77.     move.w d1,d2
  78.     bne.s div1
  79.     swap d0
  80.     swap d1
  81.     swap d2
  82.     move.w d0,d2
  83.     beq.s div2
  84.     divu d1,d2
  85.     move.w d2,d0
  86. div2
  87.     swap d0
  88.     move.w d0,d2
  89.     divu d1,d2
  90.     move.w d2,d0
  91.     swap d2
  92.     move.w d2,d1
  93.     bra div8
  94. div1
  95.     moveq #$10,d3
  96.     cmpi.w #$80,d1
  97.     bcc.s div3
  98.     rol.l #8,d1
  99.     subq.w #8,d3
  100. div3
  101.     cmpi.w #$800,d1
  102.     bcc.s div4
  103.     rol.l #4,d1
  104.     subq.w #4,d3
  105. div4
  106.     cmpi.w #$2000,d1
  107.     bcc.s div5
  108.     rol.l #2,d1
  109.     subq.w #2,d3
  110. div5
  111.     tst.w d1
  112.     bmi.s div6
  113.     rol.l #1,d1
  114.     subq.w #1,d3
  115. div6
  116.     move.w d0,d2
  117.     lsr.l d3,d0
  118.     swap d2
  119.     clr.w d2
  120.     lsr.l d3,d2
  121.     swap d3
  122.     divu d1,d0
  123.     move.w d0,d3
  124.     move.w d2,d0
  125.     move.w d3,d2
  126.     swap d1
  127.     mulu d1,d2
  128.     sub.l d2,d0
  129.     bcc.s div7
  130.     subq.w #1,d3
  131.     add.l d1,d0
  132. div7
  133.     moveq #0,d1
  134.     move.w d3,d1
  135.     swap d3
  136.     rol.l d3,d0
  137.     swap d0
  138.     exg d1,d0
  139. div8
  140.     rts
  141.  
  142.     section data
  143.  
  144. oldidl
  145.     dc.l 0
  146. olddisp
  147.     dc.l 0
  148.  
  149.     end
  150.